home *** CD-ROM | disk | FTP | other *** search
/ Merciful 4 / Merciful - Disc 4.iso / rexx / viewfile.pprx < prev    next >
Text File  |  1996-11-01  |  2KB  |  88 lines
  1. /* Personal Paint Amiga Rexx script - Copyright © 1996 Cloanto Italia srl */
  2.  
  3. /* $VER: ViewFile.pprx 1.0 */
  4.  
  5. /** ENG
  6.  This script shows how to create a simple text viewer. It displays the
  7.  selected text file in a window.
  8. */
  9.  
  10. /** DEU
  11.  Dieses Skript verdeutlicht die Erstellung eines einfachen
  12.  Textanzeigeprogramms. Die ausgewählte Textdatei wird in einem Fenster
  13.  angezeigt.
  14. */
  15.  
  16. IF ARG(1, EXISTS) THEN
  17.     PARSE ARG PPPORT
  18. ELSE
  19.     PPPORT = 'PPAINT'
  20.  
  21. IF ~SHOW('P', PPPORT) THEN DO
  22.     IF EXISTS('PPaint:PPaint') THEN DO
  23.         ADDRESS COMMAND 'Run >NIL: PPaint:PPaint'
  24.         DO 30 WHILE ~SHOW('P',PPPORT)
  25.              ADDRESS COMMAND 'Wait >NIL: 1 SEC'
  26.         END
  27.     END
  28.     ELSE DO
  29.         SAY "Personal Paint could not be loaded."
  30.         EXIT 10
  31.     END
  32. END
  33.  
  34. IF ~SHOW('P', PPPORT) THEN DO
  35.     SAY 'Personal Paint Rexx port could not be opened'
  36.     EXIT 10
  37. END
  38.  
  39. ADDRESS VALUE PPPORT
  40. OPTIONS RESULTS
  41. OPTIONS FAILAT 10000
  42.  
  43. Get 'LANG'
  44. IF RESULT = 1 THEN DO        /* Deutsch */
  45.     txt_req_sel       = 'Textdatei auswählen'
  46.     txt_req_file      = 'Dateiinhalt'
  47.     txt_err_oldclient = 'Für dieses Skript_ist eine neuere Version_von Personal Paint erforderlich'
  48. END
  49. ELSE IF RESULT = 2 THEN DO    /* Italiano */
  50.     txt_req_sel       = 'Selezionare file testo'
  51.     txt_req_file      = 'Contenuto del file'
  52.     txt_err_oldclient = 'Questa procedura richiede_una versione più recente_di Personal Paint'
  53. END
  54. ELSE DO                /* English */
  55.     txt_req_sel       = 'Select a text file'
  56.     txt_req_file      = 'File Contents'
  57.     txt_err_oldclient = 'This script requires a newer_version of Personal Paint'
  58. END
  59.  
  60. Version 'REXX'
  61. IF RESULT < 7 THEN DO
  62.     RequestNotify 'PROMPT "'txt_err_oldclient'"'
  63.     EXIT 10
  64. END
  65.  
  66. LockGUI
  67. RequestFile '"'txt_req_sel'"'
  68. IF RC = 0 THEN DO
  69.     PARSE VALUE RESULT WITH '"' fname '"'
  70.     IF OPEN('textfile', fname, 'R') THEN DO
  71.         filetext = ''
  72.         DO UNTIL EOF('textfile')
  73.             filetext = filetext || READCH('textfile', 10000)
  74.         END
  75.         CALL CLOSE('textfile')
  76.         pos = 1
  77.         DO FOREVER
  78.             pos = INDEX(filetext, '"', pos)
  79.             IF pos = 0 THEN
  80.                 BREAK
  81.             filetext = INSERT('"', filetext, pos)
  82.             pos = pos + 2
  83.         END
  84.         RequestNotify '"'txt_req_file'" "'filetext'" SCROLL WRAPCHECK'
  85.     END
  86. END
  87. UnlockGUI
  88.